perm filename EDITST.LAP[IL,LSP] blob sn#189999 filedate 1975-11-30 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(LAP EDIT* SUBR) 
C00004 ENDMK
CāŠ—;
(LAP EDIT* SUBR) 
       (MOVE 2 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL L) S) 
       (PUSH P 2) 
       (MOVEM 1 0 P) 
       (PUSHJ P EDUP) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E LENGTH) S) 
       (PUSHJ P SPECSTR) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 3 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL COM) S) 
       (0 3 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVE 2 -1 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPN 1 TAG2) 
       (CALL 1 (E ERR) S) 
 TAG2  (MOVEI 2 (QUOTE NIL)) 
       (MOVEI 1 (QUOTE !0) S) 
       (PUSHJ P EDITCOM) 
       (POP P 2) 
       (POP P 1) 
       (CALL 2 (E *DIF) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (PUSHJ P EDITCOM) 
       (MOVE 1 (SPECIAL L) S) 
       (PUSHJ P SPECSTR) 
       (MOVEM 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (POPJ P) 
       NIL